home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 2005 July / Macworld CD 17.05.iso / Data / Main.dxr / 00039_movieObj.ls < prev    next >
Encoding:
Text File  |  2000-02-28  |  910 b   |  46 lines
  1. property playing, clickPause
  2.  
  3. on new me
  4.   return me
  5. end
  6.  
  7. on getPropertyDescriptionList me
  8.   description = [:]
  9.   addProp(description, #clickPause, [#default: 1, #format: #boolean, #comment: "Pause movie when clicked:"])
  10.   return description
  11. end
  12.  
  13. on getBehaviorDescription me
  14.   return "Toggle movie between paused and Playing"
  15. end
  16.  
  17. on beginSprite me
  18.   me.playing = 1
  19.   sprite(me.spriteNum).movieRate = 1
  20. end
  21.  
  22. on endSprite me
  23.   me.playing = 0
  24. end
  25.  
  26. on mouseUp me
  27.   if me.clickPause = 1 then
  28.     if me.playing = 1 then
  29.       me.playing = 0
  30.       sprite(me.spriteNum).movieRate = 0
  31.     else
  32.       me.playing = 1
  33.       sprite(me.spriteNum).movieRate = 1
  34.     end if
  35.   end if
  36. end
  37.  
  38. on exitFrame me
  39.   if sprite(me.spriteNum).movieTime >= sprite(me.spriteNum).duration then
  40.     sprite(me.spriteNum).movieRate = 0
  41.     sprite(me.spriteNum).visible = 0
  42.     sprite(me.spriteNum + 1).visible = 0
  43.     updateStage()
  44.   end if
  45. end
  46.